Profile of (eval 304)[Sub/Quote.pm:3]

Filename	(eval 304)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 217 statements in 390µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
17	1	1	121µs	146µs	JSON::Schema::Modern::Document::_assert_errors
1	1	1	9µs	24µs	JSON::Schema::Modern::Document::BEGIN@7.155
1	1	1	5µs	17µs	Method::Generate::Accessor::_Generated::BEGIN@24.157
1	1	1	4µs	4µs	Method::Generate::Accessor::_Generated::BEGIN@12.156

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	2µs			my $isa_check_for_errors = ${$_[1]->{"\$isa_check_for_errors"}};
3	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4	1	1µs			my $default_for_errors = ${$_[1]->{"\$default_for_errors"}};
5	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
6					package JSON::Schema::Modern::Document;
7	2	52µs	2	39µs	# spent 24µs (9+15) within JSON::Schema::Modern::Document::BEGIN@7.155 which was called: # once (9µs+15µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 24µs making 1 call to JSON::Schema::Modern::Document::BEGIN@7.155 # spent 15µs making 1 call to warnings::unimport
8					# spent 146µs (121+25) within JSON::Schema::Modern::Document::_assert_errors which was called 17 times, avg 9µs/call: # 17 times (121µs+25µs) by JSON::Schema::Modern::Document::has_errors at line 17 of (eval 302)[Sub/Quote.pm:3], avg 9µs/call sub _assert_errors {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 4µs within Method::Generate::Accessor::_Generated::BEGIN@12.156 which was called: # once (4µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	1µs			$^H = 2018;
14	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	3µs			%^H = (
16					);
17	1	48µs	1	4µs	} # spent 4µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.156
18					# END quote_sub PRELUDE
19	17	30µs			do {
20					my $val = exists $_[0]->{"errors"} ?
21					$_[0]->{"errors"}
22	17	9µs			: do {
23	15	28µs	15	25µs	my $value = $default_for_errors->($_[0]); # spent 25µs making 15 calls to JSON::Schema::Modern::Document::__ANON__[JSON/Schema/Modern/Document.pm:110], avg 2µs/call
24	107	184µs	2	29µs	# spent 17µs (5+12) within Method::Generate::Accessor::_Generated::BEGIN@24.157 which was called: # once (5µs+12µs) by Sub::Quote::_clean_eval at line 24 do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_arrayref($value)) and do { my $ok = 1; for my $i (@{$value}) { ($ok = 0, last) unless (Scalar::Util::blessed($i) and $i->isa(q[JSON::Schema::Modern::Error])) }; $ok } }) or Type::Tiny::_failed_check($isa_check_for_errors, "ArrayRef[InstanceOf[\"JSON::Schema::Modern::Error\"]]", $value, "attribute_name","errors","attribute_step","isa check","mgaca","0","varname","\$self->{\"errors\"}"); $value }; # spent 17µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@24.157 # spent 12µs making 1 call to warnings::unimport
25	15	13µs			$_[0]->{"errors"} = $value
26					}
27					;
28	17	6µs			exists $_[0]->{"errors"}
29					or Carp::croak(q{Attempted to access '}."errors".q{' but it is not set});
30	17	7µs			$val;
31					}
32					}
33	1	1µs			$$_UNQUOTED = \&_assert_errors;
34					}
35	1	5µs			1;
36
37					;